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=! V t." ^ - iSf L/Co => V t" ^ 

;^-r i/Tt- L i 5o 

iiVt’i — •?— 



yp^'9 Afflow|§ttfiJja«d^*0 BASIC ( ^ ') L x. 

5o 

=! -f'Ci'CtB3^±ot:t'?)7"p ^"7 Ld^L, g:9- 

M^07’ p y X y M.mms^-^%^ts:VfHlitts: 0 

=! vt"^-^;S7"p ^'7 AWl§it, i-fo 

-ffiftjA: BASIC W!§^®-oT A p 5 a AA t L i 
5o 

BASIC o A ?) 

1) ft® 

2) r t /I^ 

3) < 

4) A'- 

^A)ftt, A; #75'^ it ^4 -to 

BASIC Wf§^-^ a. - laT^ ■B'lgtl'^tA 
«L<PjaAf-tAA i%^|gOl;Iii^LA#<*i}4-&Ao 


T^y. 'Ph-^-^%k.iiiit. glSC::^§|5:l^-CL'f'/'t-to 

ii" <'^5-d'^tB?)-t?L i 5o iS 

H-f f'C=^ - '"C T? >/ 'o 




SK-1 100 0151':^ 

1. t-f, SG- lOOO^-fflSLT < /-cSt'o ST'-SSfiAHJil'AA /cSl'c 

2 . SK - 1100 A#: J: <7 7 7 -v h SG - lOOOd^ LjAA P 2 , ^ . 

Lod^O i^LaA-CA ASl'o 

7 ^ ^ A-tx i >> J; 5?£i;LA < tz-$-i\ 

3. gitdWO f LA6. SG- lOOOfc BASIC * - 1 U ^ LiAAt;- < A 3= I 

( A- A ifil] CA'-t, ) 

4. ^g|50Sgn;4'||o Ae>> SG - 10000*^l^Ai^A < fc3;i'o 


i> 7 ^ 
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ESC, SC - 3000 BASIC Six f-f-o 

-ixr\ SG- 1000^^ SC- 3000 V Co. - iSf t 

T?tt. h • 7',>, BASIC £Dtil:#-t:-S^T'^4 Li 5o 


SK-IIOOiBASIC 

SG -1 000 = v i f ■&^ t;- L tLAL L<OSK-1100 

=^-4-:- Ki, BASIC => Vi 

CO BASIC I It, V => ii^Lx:o 

fztd<tzibco^(DX--f^ '<y 3 vii'5 i, Li'ffiWo t 5 IcSotoGix^jXj-L i 

^Lr■?:^;^^:#:^t^) I) 4■^^o 

*;^tfc0^4r® Orljf^Lr < ixf-to Ld^L^V =- vlc4aS?t±i*?)B*i, 

*>* <5 t-fo 

h rit, -'V vic^^-t;61-*d>®SBJSix'C*j 0 4-fc, ®0^LL-foffi5 c i-CS)tt 
/cL-y =! v^gEt3r®x;5 1 5 icA; o f -to 

=- vO^LLiir^ICAo-CAf L i 5o 


- 2 - 


1 0 
2 0 

3 0 

4 0 

5 0 

6 0 
RUN 


SCREEN 
C L S 


|C R 


2 , 2 I C R I 


LINE(80,50)-(180 
C = C + 1 I C R I 
IF C=16 THEN C=0 
GOTO 2 0 I C R I 
ICRl 


10 0), C, BE I C R I 


{ 0 (t— 0 T:"t, 


1 I c R I =^^-^#L-CTSt'o A)jL7t7°P^"5A;4-i3 Vt”^-^rlag3;ix 


1 


/ffl 

1 3? 




- 3 - 


L £ 5 


/ ffl 

1 7 






1 2 <!: iiiliii'JiditJfe’i Ly'c;^o — =^r-i'C*d^ixfc:i^-^pH#OF^'t;\ iiT 

t -to 

I SHIFT I (-yy h ) I graph | ( yty ^ -y y ) 


I SHIFT I =P-^ffL 


/ ffl 

1 7 


■^ntt ! 


-mt-tc 
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=^----}^'- K;&i|lj0^EP€>*2), 


;* - y /L-ti, - Ft? D t -to 

B 

— F I 

y 7 ^ - F * 


^ - t - F£TK 


^ * 
» t 


, IGRAPhI L'CTg^'o * - y *) tfo 7C 

fcM-ri/at. 4 5-Sl^i:t-^W-t<!:> :*- ttc 
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^ SHIFT =^->lrff 


SHIFT 


0 ^ ic 


SHIFT 


/ ffl 

GRAPH © 


$ s 

1 5? 

* A @ 

^ m. 

4 

. 


GRAPH 

SHIFT 

+ ® 
* -r 


SHIFT 

® + 

GRAPH 


^ Wl 


SHIFT 


B □ 

^ ic 

} J 

A ^ 


] A 

- 

* :7- i5[ 



SHIFT 

+ 

-r 


* -r 


I SHIFT I {-yy v^-) 
tE^iD I SHIFT I 
I SHIFT I 

I SHIFT I 
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I GRAPH I (^' 9 7 ^ ^ - ) 

9-974 -4 9 ^ fzii>(0 % o-rs-po * - V /uit * D t -to 

9 - 974 9ia^n, I SHIFT I 



:* TT '9^9--9^h 70J; 5r. '"j \ o 

I SHIFT I 


SPACE 





9-'<-9 .A-^l [niff “f t ^ 
-t)-v 


L J 
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3 v\L ^-^(DWi^. ^PsUlSC^^il^CJ; — oomWik LTa:bixt-to 

4tt;’r ^-A'AALAliC^-f’ia-i-A', @1);?)'— 0 t LAtao 
'Ott:-%||ffirttSLA*?< OttSI3Mt:'-fo A'tt, -f L AJ, t L i 5 o 

A-ti 

I home/clr! ( * - a >; t ) 

mM±.<0^^-bmk.X^ Z7- 3 vl'CM'Z t-tc 

I SHIFT I A-^ff 

A'IcAALZijt^#:-1=ia-^It, APZ^9Ai:LA=! f2ll^tLAt'-i-S 

A^o 


- 9 - 


fr#^ t it. J; 5 % o “C'-fo 

T K (#±tli ) 

|CR| i^-vV yi> ■ y ^ - -y ) Xit (') fi-v) 

=> V tA - ^ - ^ -t y -rtt^fc|gfiSKt:fc 0 ^ 

^^a [Ml ^ibXmm^Hi-fo 

(Ml ^WLAT^i'c 

Syntax Error tHji Ltct3.a ( 'V 9 -y ^ y. ^ 9 — ) 

:3 VtA -i5rrAAi“?)^'B. — fy AAALfiWh-if/t 0 f “frAc >lix^=!Vt.A 
o:i:iSiHy't-fo I^iSA^PBiaoAt'Si^y-rf^fy t-to 

Hfg^. i. 'ik'LXts-ft^'Lih^t^A^ 

-K--^\'Xit. -y -b: - LtT^ 0 'o 
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I INS /DEL I i-i y^- /T 'J - h ) 

I INS /DEL I 

INS (-f >-y— h) (i; 

DEL (x'j- M 

S1101] 0[B][g[i] iftoTLtofc^^, I INS/DElI +-^rW-f 

t. *- y E Lt-to 

ABCDtilDf LA:^a 



I INS/DEL I A-^ff-to — :)^S)L4-to 

Dd'^A*) t LAo 
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A B C Li 5o 

* - y/i'i:A B c DOC o±rj#o -r^rTS'-'o 
SHIFtI |INS/DEL| LTTgOo 

»}tLA^ao 

B &Atl Ltz^^A^A 0. CD — D-f^t LA^a, 



A - y/i-^ CO±fc#®^-yr2,„ 


I SHIFT I dr-t 


INS/DEL 




* - y y; - y 


y; — y < yj; 
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^ v-t- h -t - K OB# ( * - y L T I ' PbI ) ti. t;- i 'g'f+H ' t -f , 


0 |CR| =^r-^ff-t (— l§e^f-S<f£5=^-t:-t) 

® I SHIFT I + |INS/DEL| 

I '-dixd>-C\ xOttiBl-K •) 4 0 o 


7'p^"7A^1^ELyc^'&. I CR i y -t B -rta5^i»##x.lb^4■Rr^o 

^--^jSf^L-CSSd'i^-TT^l'o 41 LIST 


iFUNCl (yy-y^'^ 
GOTO 


/ ffl 

1 7 


a y ) 

BBP^I 21 tL-rt' 2 .=I^-T:"to 

+ GOTO 1 t-tiao 

ChiU BASIC ■t:-fJ:bH?)i^r^^-t:"t„ 
|FUNC| Lfct t, 

Ft-C I ' ^ix 4 -to 


: A-lt> y" p 7 A ?) o r M#y 'C-f^ 


13- 


I n/BREAI^ (ilffl®#/ ) 

7" p ^7" 9 A 7" p t-f-o 

ISHIFTI ^-^jf Lfct f , In/BREAI^ !) t "to 

z CO =1 y- b.° s. - iK 2ooaffi>ir#fo-ci.'?>€)'e^j#;^t:l,^yii5-e-to 

— OCOgSHx^^"^ h iUffit;', 7" p 9' 7 A^* < @®-C-fo 

45— :^9 7 ^ ^g®-e, ^^9 7 ^ ,y ^ 


^ ;/ break] 

ISHIFTl 

CtllJ. 200®ffi^4#ori'5^lp-C'-ro 

BREAK $ 
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I CTRL I ( =! V h p — /u- ) 

I CTRL I t, => V b p 


=I>['P-^Hj-K 



PRINT CHR$ (ffi ) ; 

it m 

IctrlI + 0 

PRINT CHR$ ( 1 ) : 

NULL X^tsiL 

c 


BREAK y° if =7 J>. ©Hfr't'lt 

E 

5 

* - y y y 7 

G 

7 

BELL U.;, 

H 

8 

DEL y - h 

I 

9 

HT TAB 

J 

10 

LF 7 -T v 7 ^ — K 

K 

11 

HM 

L 

12 

CLR BiSC) y y T 

M 

13 

CR =p+y .yi/y y-v 

N 

14 

* y* 'o t^k. 

0 

15 

( ) Bffi^y'4ry> h y" y 7 ^ .y y -K) y 
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PRINT CHR$ (fi) : 

® m 

p 

16 


Q 

17 

(SCREEN 2) 

R 

18 

INS T Vi^- 1 

S 

19 

^ - Ail ( A~z ) 7 h /£ L A:i^ 

T 

20 

'' ( a~z ) 7 7 b fe 

U 

21 

7 T '7^ 7 y r L* - 7 

V 

22 

/ — -7 -t — h" 

W 

23 

GRAPH 4"-AA7'77-t- K 

X 

24 

7 y -y 7^0 ON ^ OFF 


28 

|=> 2; - y /^#t!l 


29 

<=■ '' 


30 



31 



7" P 7 y h p — K 5 

PRINT CHR$ (fi) -CA^JL-CT^l-'o 
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I reset I ( y -fe .y h ) ( y -t ,y h ) SG - 1000 y -t .y t- o t-fo 


f-, *ii^AK/cP#irai:t»tsioiii(grMo t-fo 


reset! Lt-ti 2 ~ 3 


XXX Bytes Free 

AlOLtzXr^ Aiim^XLt tHJrAo 


U±T:\ 0 S Lito 4 5—,®, A-^{£o p A 7 L 

i 5 o 


1 0 

SCREEN 2,2: CIS jCR 

]+- 


xffis Yffi# xffi® 

Yiss 

2 0 

LINE (50, 50)- (150,1 

5 0 ) , 5 + 

9 0 

GOTO 90 |W| -1^- 


RUN 

|cr|+- RUN(J7°^-!7'7A^§I^T^i±S^<^■^•r. 
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5 , B |C R I 

* Oo^'-to 

5 , B F 

J; 5 tJiBASlC t:\ * 9 -^{£o a 


- 18 - 


X llij 0 ~ 255 
Y 0 ~ 191 


0 X - 255 



io -y I CR I X-^fPLXK 

fd^l^a 


- 19 - 


m 2 m 


y'f K7 h • =E- K 

V t" ^ ^ t:"tc 

Li 5 o 

|home/clr| 1] @ [s] Q] [c] I space I 

iliiiJf'Ctt 


BASIC TEST 
? Syntax Error 
Ready 


ttat-t. 
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El][s]S Icr'I 


4='Vf^-^r, BASIC TEST t. XJj 

r^H'J i:-w"p Lf L i 5o 


r^H-J PRINT X'-fo 


-SHIFT =3r-^ff Lfct t 


" B 

2 7 


(OX- 


Ihome/clr] H] [r] D] [n] [t] □ [I] 0 [s] D] 0 |space| It] [e1 0 [t 1 n fc^ 

t At/L'CT^'^'o 

PRINT 7;ti> iii[iif-S7F5*2)'w^7;t;'i"o 


PRINT"BASIC TEST" -= - X^Xt! 

BASIC TEST ^ PRINT :i-eHiAL7t:5;^? 

READY 


Bffiic, print 
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PRINT:^^:-. -^v\L " ( ^5?■'7'/^ ^ - x - '> h 

" " -t:'H^fc:S:^?^fB-^^, — 3004 0 i LYaoYl'?);4^ep-t:'-to 
0 t*^c 

" " orBlf'^('i> i5:?-^sB#, ^'yy A .y yti-Wi>Atihht'fo 

" " 04^r, ^m-^m< txTtmcx^tlmh>i^t^to 

1 [Hfl-t^ (C0#^tt5|H]ff-t) 

E[r][D0[t1 " lIljl-ii-il-j [B]0[s][D[gL_i^L_j^a[E]®a " |W| 


I II II II II I 

READY 


BASIC I 1 1 1 1 1 1 I TEST 

— ^?:9-0 ^ ^ 


PRINT y viL =.- 

/kJq 

PRINT :^ii. y‘ p Y 9 A AA'Am i < i> 
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[Elljgg] I C R I ? tt PRINT Oft -to 

6 

READY 


2 + 40ft»^Lt:, ^^PRINTtS J: 5r^4rLt Lfco 
ft# O IS* % PRINT :S; -C'g^ $ -& 1 1 o 

H] PRINT i'tf£ n -y t" ^ ^ -t;'% |W1 Ct^'to 

=! vt" i 

E ay m # 

^ V t" ^ “C'ftff^t 5 ta-td't #aoft# t it 5 *? t to 


tiL# + [2 

tt# - □ 

)i( 7;^^ y 0 
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OW / -y -y zi. Q 

A x" 


5 i ii?C 7 ' t-to 

( ) * .y t-fo 

Iii±^t <!:fe*;0;d5i^og'e-to {£5 bu^-J: < *Ji,'t:T?'-'o 



is-t 


F*3 § 




# 

ri 

» 

A 

o 

X 

( 0 A 0 1 ) 

1 

+ 

o 

X 

+ 

2 

- 

o 

X 

- 

)K 

o 

X 


3 

/ 

o 

X 


MOD 

o 

X 


4 
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o 

o 

MW- ( ) 

5 

— 

o 

X 

mw 
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• -y =! ( ) 

• imm^ “+” IS^^rabibfc-to 

( ) “ AB ” + “ C ” ==0 “ ABC ” 

2 jf-efr o -c I ' s o 


i? Kco;&To:^r 0 0 t-tf^a zhu. 

^'97^ IB-g-C'-fd^ Pj. 4 '^^0 

5-ffi^oT^4 L i 5o 



□ 30 
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P R I N T 1 0 / 3 
3.3333333333 


PRINT It I FUNC I - i 


* 






? 3 ^ 4 |C R I ( 3 X 3 X 3 X 3 ) 0*5^ ? | n t ( ( 3 

80.999999999 81 


A 


i ' lomtm 11 -p -c ts 4 -to 

7 1 0 0 0 0 0 0*1 00 00 I C R I 
10000000000 

7 10/3 

3.3333333333 |C R 1 10 Ml 

7 1 938000000*1 0000000 
1.938E + 16 (1.938x10*®) 


4) + 0 . 1 ) 


- 27 - 


? 6 + 2*4 


2 i 

t-to 
*? A'i" o 

%5— K, f^US^HfrLt Li 5o 

? 6 + 2*4 
1 4 

t-to 


(6 + 2 ) *4 
? 3 2 




- 28 - 


-y -y 0 t“&^o I'O 


ft, i{r!f:(0 i -y 


® © ( 3 ) @ 

?3*((8+6)/(4-2)) 

2 1 

±<DMM(Of\-%i/i, ^^(OM^Kfriohi-to i:t:-^ix«\ £{l!l05S;d^ibftS 


y :£* y ^ y f) Pj-f y = ofrfi 


PRiNT3to4)5— 

PRINT Lfco - i . 

5 /5^o 

; 2 + 3 


? " 2 + 3 = " 
2 + 3 = 5 
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L/c^ao ZtiiU 

2 'O€>:4:oia;^-^‘^*;%c>-e-fo 

"2 + 3 " tt, L'C&hhf^‘ox\ 

; ( -b i -y ) -ciKW hhfz'^O^n. 2 + 3 O^i LtS+p^xf Lyc©t:% 

LfCa 


it 5 — d<dM 

? " 2 + 3 = " , 2 + 3 

2 + 3 = 5 

READY 

Lfc^ae (,) = 21 ffi S 


- 30 - 


PRINT (,) (;) -fe S =1 □ 



^■t:-Lfc^ao => V t" ^ ^ =I2-^}tSiJO{gl':^*5*0 f-to 'A<0^<D y' u 

y ^Oi'piyyjXmmLti'o 


- 31 - 




BASIC Li 5o ^-4^- ^*7 Ali, 

i-#^^fWt-to 

fflt-f-(:5:#-§-SAit7 4' ) i-fy't-to 

:5:¥( b 4 V b )^at=! ) $-frti"c 

LET, 


1 0 

EEm 

0[1B 

fTFl 

2 0 

□Him 

[EBB 


3 0 

[L][i][T] 

EB0SE 

r^ 

4 0 

B 0 Q] [N] S 0 

|ca1 

5 0 

[EBB 
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[R][y][N] 


[H] 

8 

READY 

RUN Lfco CltllJ, 3 > t°a— SSi'Ct'o 

7"p ^9 RUN ( 9 y ) 


LET, ^|gf 

LET (ftA:i)ti> 

10 LET A=3 

Ad>3fc#Ll't'ti7i<, A 1 1 ' 5 ffif- 3 t 

5f[fiI^^AtL?>#'t:'-t'o 

LETS:^i, 

1 0 A = 3 
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30 LET C=A+B 

LET 




^liC0Sl® 



= 5 A=5 A(C5^A*l5 


+ 1 


A + b C=A+B C r A+ B C>IS*^Aix?)c 








mm. 


+ 1 


x=x+i xn ^JnAA|g*^XIwii:^S[XrAA.?)o 
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II 



= ''ABC" + "DEF" 


'ABC" C S^CABC 


DEF" D$r DE F 


E$=C$+D$ 


ESfCABCiDE FO-^f£l^fdi,cO^Ah^ 


fy Xi:; 


X=X+ 1 

m 

10 C L S 

2 0 X = X + 1 

3 0 PRINT X ; 

40 GOTO 20 ^ 20 -^3 0 f -fo 

RUN 

1 2 3 4 5 6 7 8 ... 

X 0 "C'to 


(0) (0) (1) 

X = X+ 1 taoxri 40 20 X 

I 

<0, X = X + 1 
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1 0 A = 3 

2 0 B = 5 

3 0 C =A+ B 

4 0 M$ = " 

50 PRINT M$:C 
RUN 


□ ^1 8 
READY 


^ ^ ^ ^ L 4 ■j'o 


4 0 


M $ = " 3^X|_|" 




-ixH, M $ 5||r " n'$'Xj_j " >)-^AhiLtZo 

4 L:gix?)i^9-fcyi f) 4-t, 
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10 A $ = " 

2 0 B $ = " 

3 0 C $ = " 

4 0 P R I N 

5 0 END 
RUN 

I AM A 
READY 



BOY 


CLS, LIST, NEW 

BASICrtt, RUN p 5 T 

' ?> i fUKt-JIfc < I ' % O “Ci-„ 

7"p^'5A05fefflrAixt:fc< 

4o7-p^5Ar. ffLi'S:^AKt'to 
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C L S 


5 C L S ^ 

4t“0'A^JL*;7-p ^'9 AcoTo:^-t:\ fT##5 CLS^rA^IL 

9’ p 9* 9 A fT#-^- 1 ;4'ib 6 5 5 3 5 f A'ffiAf-to 

1, 2, 3, ifTll#^i§«)A9"p A9 A^fFO t-ti, i" A'fCA;': Lfc7" p 9’ 9 

L-^-f < fj: !5 t 

-fo 

7-p^ 9A^, 10|ietrfi#-§-100 t-tJ'A^JLTl'^SB#, fT#-^25^55 
frlt-t lOOO^f-AALA^, 

5 CLS Li 5o 


LIST 

IHOME/CLR] list I C R I tAJjLt-to 
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5 

C L S 


1 0 

A $ = 

ti j n 

2 0 

B $ = 

"AM " 

3 0 

C $ = 

"A BOY" 

4 0 

P R 1 

NT A$+B$+C$ 

5 0 

END 



trlf 5 O T t t -f 

iix’C'llfTLT < /-cSl'o 



LIST li, Atl Lfc 7" p 7" 9 A 


- 40 - 


LIST 


LIST 
LIST 
LIST 
L I 
L I 


y° a y' y A OF*3§^^g[5^7r; 


S T fr#^ 


1 


S T fr#'?' — tr#'?' 




o 7” p ;?' 9 A o 



LIST "C'^TiN^ixTc^'p 7'9 Att, * - y "C, 


LIST 30 
30 C$="A BOY" 

*-yyi^^BO±4-t:-#IK;L-C, M^A^Lf-fo SeI^'AAN iA^JLt: |CR| 
7"p^''9AOrtg^*t#AA?>. mh-f |CR| =I‘-^ffL'T:T^>^'o 
IcRi ^ 

U 7 . [SPACE I Lt-tj:^ 'J 7 . h BtcRITr^tit "to 7 °p 7 " 9 a^ 

tit, I BREAK I LTljlELA < y 7 , h g^cocf »fB#i'- 

I SPACE I 
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N EW 


— 00 7°p akl'^^Ll'y’P Itj07“p ;7'9 ^ y -F^ 

i'C-SoTF'?) i> y°p y'y t> t'fo 

fj^-A*Lfc 7 ‘p ^-7 c L -t y 

7° p 7' 7 

NEW tAALt [^ ^ffLTT^l'o 
LIST ^tBLAAt Li 5o 

LIST I C R 

READY 

A p ;J''' 7 A *'L ^ 93 ^ -t y -d^ib'if AALf L't L/Cc 
^ 4 A'OiS^H^ A\ L p '-/ 1 ° ^ ^ £D 7 ° p A 7 A ;65flJ -5 r^t L Ad'o 

7’p A7 a^AALAL'^jP#, ^ "f *) t-fo Ao 

1 1 RUN ^ ;^Og>?)^TlfA-OJ5fA\ ?) t-fc LO J; 5 ^ BUG 

(^<A) tPfLKf'to *C)*A\ ^litLAp A7 AtWLt-t^ 

Hl'A p A 7 AO^-g-It, A^^-oH'%OItffi#A"#';5'U iL'Ap A 7 AA'l't^'OFt?)®^?^ 
^A-to AA-tS»^It, ^Loy^-CLtLi 5o 
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INPUT. GOTO 


if =7 Ll 5o 

— ^*9 Ati, SSSrofg^y p 5 A t L'Cili/'fcOT;'. ft® Lfci'i5[^^0 
iRK. f) t-ar^'t:'Lfco t ^ 

-rrti, ®«L-Cffi;^?)ft®7°P 9"9 A^flSoT^t Li 5o 


10 C L S 

20 INPUT A^ 

30 INPUT B 

4 0 C =A + B 

50 PRINT C_ 

60 GOTO 20 
RUN I C R I 
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( ^ 

?H (INPUT )[4] |c R I 

?H (INPUT B£DAA#'fe)[5] I C R I 

9 

?B [8] I C R I 
7B0 I c R I 
1 5 

?H |BRE^ 

BREAK IN 20 - fr#^ 2 0 A' 

READY fi^lkLtLAo 

v___? / 


4 ^ AA 

5 ^AA 
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GOTO 


y° ^ ^ GOTO^rtB-a-5 ft o 

i<D7“p i7"9 Aft, fT#-§-60d^f5fT#-f-20rM'5. SO^', INPUT A *) 

y'py'yj^ht. 7”p^'5a^ 

It«)^i'-ft> I break! ^-T:-I^:^6?)L/S^t)9^-fe^c 

y p y 7 A INPUT:S;^JiHLi^5 i, ^--y- jc R I 4-- 
t T?y p y 7 Aogitixd'^iiit o t:>/'f i"o 
INPUTjttt,^^^i[%ffiAt-to tA. PRINTilt^Ur. " " 


/ 

N EW 

\ 

10 C L S 

20 INPUT" 

-fVXA?L_i" : A $ 

30 PRINT 

A $ 

4 0 END 

RUN 

■fvx/\? J\-)-^ 

J\i-^ 

READY 


V 

j 
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END, STOP 


END ^'7 AOU-f) 

STOPti> 7 " p ;?'7 Acogitix^ih^S-fo 

CONT 

STOP BREAKS- -Q^m-^Mzy’ p ^ 9 A L/cl, ' i: t ' f-fo 

10 X=X+ 1 
20 PRINT X 
30 GOTO 10 

A^RUN I BREAK | =¥---e||fT4rihi6't:T^V'o 

Break in 20 
CONT fcTI 

i 7° P >/ 9 A ; 4 '^lh ^ :h. f -f o 
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FOR ~ TO, NEXT, STEP 


10 C L S 

20 FOR N=0 TO 9 

30 PRINT N 

40 NEXT N 
5 0 END 


10 UK 


F0R~T0 1t, NEXT i— Aft, N ;5'^0*^ib9t 
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10 C L S 

20 FOR N=0 TO 20 STEP 2 
3 0 PRINT N : 

40 NEXT N 
5 0 END 
RUN 

0 2 4 6 8 10 12 14 16 18 20 

STEP 2 it, LfcO-e, 0 ~2 0 ^ "to 

STEPti. - ( 20 ^1^IE L i 5 c 


2 0 FOR 

N = 

2 0 

T 0 

0 STEP 

- 2 

RUN 

2 0 18 1 

6 

1 4 

1 2 

10 8 6 

4 2 0 


2 0*'T>, 2^-^-D'pts:<fz^ -i'Lfc.U. 

FOR ~ NEXT jttt, 
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1 0 

2 0 

C L S 

FOR A 

= 1 

T 0 




y 


A 

3 0 

FOR B 

= 1 

T 0 

9 ^ 

B 

CO 

4 0 

PRINT 

A*B : 


O 


5 0 

NEXT 

B 



^ ?v 

I 

7" 

6 0 

PRINT 




I 

y 

7 0 

NEXT 

A 






FOR ~ NEXT " AtLi=- " i -fc 4 fit A' " 

■^HU-tMt^i^ i , T' X ^ V 9 — *) t i“o 


FOR 1=1 TO N 


1 0 

CIS 




2 0 

FOR N 

= 1 

T 0 

2 0 

3 0 

FOR M 

= 1 

TO 

N 

4 0 

PRINT 

" • 

II • 

> 


5 0 

NEXT 

M 



6 0 

PRINT 




7 0 

NEXT 

N 




1 M 

N jE 

(O 

CO L 

9' 



)V ^ 

1 

1 

7° 

7 * 
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F0RN=1 TO 20 
FORM=1 TO 10 
NEXT N 
NEXT M 

FOR, NEXT 


IE 

L 

< 

n: 

''' yj 


IF-THEN. GOSUB 

7’!=- ^'y Aomhht. 

J; Li 5o 




1 0 

C L S 



2 0 

INPUT" " : A 



3 0 

IF A>=65 THEN 

GOSUB 

1 0 0 

4 0 

IF A<65 THEN 

GOSUB 

2 0 0 
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5 0 

GOTO 

2 0 

1 0 0 

P R 1 

N T " ZiOti'7 " 

1 1 0 

RETURN 

2 0 0 

P R 1 

N T " -7:d^-h^ 

2 1 0 

RETURN 


IF~THENti, _h07’p ^*7 Att, INPUT 

I L-C-SKix^^ATfc 0 f -to 

65 Miil±om'B-lit. GOSUBil-efiS^lOO fJlfrt, 
ffl|-i-200fCfTtt-to 

(4L) (fj:ib«') in^-Ci^hMh) (fr#-?-) 

IF A>=65 THEN GOSUB 100 

IF ~ THEN fxll^l;^^o:5;4f$Attc 


F ~T H E N 

GOTO 

fr#^ ( t t-to ) 

F~T H E N 

GOSUB 

fr## ( i t -to ) 

F ~T H E N 

PRINT 

"xxx" Hffli-ctbALS-to 

F~T H E N 

END 

( 7°p t 5 a|?-7 ) 

F~T H E N 

STOP 

( 7 P 7'7 AHfrtJt ) 

F~T H E N 

BEEP 
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iti 





te-t 

§ 

it 

& 

= 

# L >/ ' ( True ts:h- 1 , False A: ib 0 ) 

<> 

# < A: >/ ' ( True A: b — 1 , False ib 0 ) 

> 

# V ' ( True fih — 1 , False t£h 0 ) 

< 

'J'' ^ 1 ' ( True fih — 1 , False ts:h 0 i 

>= 

Jil Ji ( True t£h — 1 , False t£h 0 i 

< = 

Jjl T ( True t£h — 1 , False t£h 0 i 

il 

m 

» 

NOT 


AND 

mmm 

OR 


XOR 
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GOSUB, RETURN 


fj07"p^9Ai'C, GOSUB^C;6»^fe t Lfco 

G 0 T 0 *O«'^ti, GOSUB RETURN 

{£:bix, RETURN jfC GOSUB 3 t€>^OfTi'-MoT 5 fet-t„ 


20 INPUT A 

30 IF A >=65 THEN GOSUB 100 

40 IF A <65 THEN GOSUB 200 -', 

50 GOT 020 n I 

10 0 PRINT" Zi0-h<7 " i 1 

1 1 0 R E T U R N I i 

2 0 0 PRINT" -7d’ytS<7 " j , 

210 RETURN ' J 



GOSUB:5:^ffi5B#i'C, RETURN /t t) f-fc 

RETURN GOSUB<D'A<D'm^hy’^ ^'’7 fTl|-^50OJ;5 

4 5— K, y°^ ^'y 

i < ¥ij ?) i 5 7 p - h 'IrfF fl 4-fo 
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OflOti-o 
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ON GOTO 


ON GOTOd'i^O t-to 

ON A GOTO 100,200,300 

1 OB#, fT#-^100 rfRO^'t-fo 
m^Affs 2 OB#, fTll-^200 r^0«t-to 

GOTO 

T0 7°p ^'9 A-C-tt, AJtl ~ 3 t -COfii^A*L-r < 


1 

0 


1 N 

P 

U 

T 

II 



>J\” 

j 

A 




2 

0 


0 N 


A 


G 

0 T 0 

1 

o 

o 

2 

0 

0 , 

3 

0 0 

1 

0 

0 

P 

R 

1 

N 

T 

" a 

— t 

II ; 

G 

0 

T 0 


1 0 

2 

0 

0 

P 

R 

1 

N 

T 

" 'r 

- + 

" : G 

0 

T 

0 

1 

0 

3 

0 

0 

P 

R 

1 

N 

T 

II ; 

)l<7 

" : G 

0 

T 

0 

1 

0 












n 

p 

y) 




ifroiffc, h ^ v h ) 

frott’fc 2ol;i±Ai^^^^^i, : (="='-/) miSlo TT$ 


- 55 - 


=>r-Atl 


RUN I C R I 

3—fc:— 

=l>a't7"E>A 

^-:fr 

5. Jl^ 

d^:iO=E>J\ 

READY 



I B R E A K I 


ON GOSUB%. 


CURSOR 

RUN LfcB#, S^d'^iSlJrtti:5fc(t-r'Lfcc BH±0 7 ’p 

^'' 9 A < /£ 0 4 -to 

CURSORlitt, 
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(* = 37, y=0) 


(x = 37, y=23) 

y ^ ^ b® ) tt. 38(!& X 24 d 912 d-7;^ @-t:'pBSc^;h't:V''i-to 


CURSOR 18,12 :PRINT"A" 

umxtiLxT^i^o 

Adjt^;6‘iiiffidc|='*i'ci^^SKt Ltzi2^ 
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7 7 ^ HMt:- CURSOR 5 



(x=255, 3 ^ = 0) 


(x = 255, 3 ;= 191) 


X 0~255 (256 K 1 ) 

3 - 0~191 ( 192 K .y 1 ) 


CURSOR t 0 tto 
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ON GOSUB 


1 0 

C L S 













2 0 

CURSOR 

1 

0 


3 


P R 

1 N T 

" J- 

— 

H-" 



3 0 

CURSOR 

1 

0 


6 


P R 

1 N T 

" 1 





4 0 

CURSOR 

1 

0 


8 

: 

P R 

1 N T 

" 2 





5 0 

CURSOR 

1 

0 


1 

0 

: P 

R 1 N T " 

3 

. . . 


It 

6 0 

CURSOR 

1 

0 


1 

3 

: 1 

N P U T " 

■i- 

--->^7.73 


; A 

7 0 

ON A GOSUB 


1 

0 0 

,20 0, 

3 0 0 



8 0 

GOTO 60 
























m Lfc % 0 M'f o 

1 0 0 

CURSOR 


1 

0 


1 

6 : 

P R 1 

N T 




ti 

1 1 0 

CURSOR 


1 

0 


1 

6 : 

P R 1 

N T 


u 

1 

IT 

1 


¥ 3 0 0" 

1 2 0 

RETURN 













2 0 0 

CURSOR 


1 

0 


1 

6 : 

P R 1 

N T 




II 

2 1 0 

CURSOR 


1 

0 


1 

6 : 

P R 1 

N T 


. . 


¥ 2 0 0" 

2 2 0 

RETURN 













3 0 0 

CURSOR 


1 

0 


1 

6 : 

P R 1 

N T 




II 

3 1 0 

CURSOR 


1 

0 


1 

6 : 

P R 1 

N T 


/ o> . . . 


¥ 2 5 0" 

3 2 0 

RETURN 
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GOTO ^'9 CURSOR 

< Ti 0 t-fo 

G0SUB^ffil,'ti“O-e. RETURN 


READ, DATA, RESTORE 

7"p 9'9 DATA READ^A-fcAtB-t^d'^HH^t-to 

10 READ A,B,C,D 
20 PRINT A+B+C+D 
100 DATA 1,2, 3, 4 
RUN 
1 0 

READY 

DATA L Lt 

DAJAht^ 

7’p 9*9 READ :Ai'CtBS) 5 i. DATA o A 0 


10 READ 
20 PRINT 
30 DATA 
40 PRINT 
50 DATA 
60 DATA 
RUN 
SEGA 


A$,B$,C$,D$ 
A$+B$+C$+D$ 
S , E 


G 

A 


1 


READY 


DATAm^^^A^-Ci, IC^tL-cmiyfvX. 

A 4-y■^o 

DATAOiSct, READ:S:oSiScOi5:fi. 0 t*^o 

DATAf[;4^ READ:^(D^WL^tll& DATA ftffi 

READ DATA i ' i ^ 7 -r f£ 0 t -fo 

mcDATA-^tt^ii,t^hm>)mLxis.^m'^i/u restore - to 
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RESTORE 


10 READ A,B,C,D 
20 DATA 1,2, 3, 4 
30 RESTORE 

40 READ E ^ 1 

50 PRINT A+B+C+D+E 
RUN 
1 1 


D I M ( @E?0 ) 

— >fc7ciH5iJ 

fJ0 7°p Atrli. DATA A, B, C, D Lfcc T - 

DIM A ( 5 ) -y =! 

A(0),A(1 ),A(2),A(3),A(4),A(5) 

6 y 
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4 HB* t “to 

10 C L S 

20 DIM A$(5),B(5) 

30 FOR 1=0 TO 5 
40 READ A$(I),B(I) 

50 PRINT A$(I),B(I) 

6 0 PRINT ^ fr, 

7 0 N E X T I 

100 DATA 3-t;- , 3 0 0 , 5 jK7 , 1 5 0 , , 2 0 0 
110 DATA x>f — , 2 8 0 , h— 7. h , 1 8 0 , A°> , 1 0 0 

DIMA $ (5) iLfcOfC, READ5:“eA$ (I) FOR I =o TO 5 

T'ffio-tl,'?,, I-e-to DATA -t„ 

READ:S;T'tt. ASt DATA tt, 

5ra£-<t-f-o 

DATA l|.^LT^-rTSC'o 

— DIMA(5, 5) ^ 04^€)'Si^d' 2 
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1 0 

C L S 

2 0 

D 1 

M A 

3 0 

FOR J 

4 0 

FOR K 

5 0 

A ( J , K 

6 0 

P R 

1 N T 

7 0 

NEXT 

8 0 

P R 

1 N T 

9 0 

NEXT 

RUN 


1 

2 

3 

2 

4 

6 

3 

6 

9 

4 

8 

1 2 

5 

1 0 

1 5 

6 

1 2 

1 8 

7 

1 4 

2 1 

8 

1 6 

2 4 

9 

1 8 

2 7 


, 9 ) 

TO 9 
TO 9 
J * K 

( J , K ) ; 


5 

6 

7 

1 0 

1 2 

1 4 

1 5 

1 8 

2 1 

2 0 

2 4 

2 8 

2 5 

3 0 

3 5 

3 0 

3 6 

4 2 

3 5 

4 2 

4 9 

4 0 

4 8 

5 6 

4 5 

5 4 

6 3 
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( 9 

= 1 

= 1 

A 

K 

J 

4 

8 

1 2 

1 6 

2 0 

2 4 

2 8 

3 2 

3 6 


8 

9 

1 6 

1 8 

2 4 

2 7 

3 2 

3 6 

4 0 

4 5 

4 8 

5 4 

5 6 

6 3 

6 4 

7 2 

7 2 

8 1 




DIM A ( 5 , 5 , 5 ) 

D I M 10 'X:~to 
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ERASE 


y° ^ =7 Aco;^4it:\ 

100 ERASE i Lt-f<!:7"p 0 t-fo 

100 ERASE A,B$ <D i 5 L 

t-to 

D E L E T E ( A y - b ) 

DELETE 1 8 0-2 2 0 |C R | ! ( ^ y-v ) 1 8 0 - 

2 2 0 

DELETE -2 5 0 fr#^ 2 5 0 t T:'® 7” p 9 a ^’ifi L 4 "to 

DELETE 600- frS-^eoo Lf-fc 
DELETE 100 1 00 

444:% BASIC ci:$;o—a5^l£-:. 4:^4 LAo 

ya9'9A^f^?,«'&, !K^e3-ffTll#^A^^4■tc t-f. 
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AUTO ( b ) 


AUTO |C R I t. tTll#7iL-eA^;L-CT5 0'„ 

1 0 I C R 

2 0 

AUTO 100 I C R I 

1 0 0 I C R I 
1 1 0 

lOOHd^lb. 10^$'AT:'tB-C*t L/c;^o 

A U T O , 1 0 , 2 0 I C R I 
( §■ $'Ala ) 

1 0 I C R I 

3 0 I C R I 
5 0 

lc R I 20 
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n> 


RENUM ( y ) 


7 

RENUM I C R I 

10 , 20 , 30 ifT#-f-^#H-ELt-t„ 

RENUM 100 I C R I 

^T#-^100^^lb, 10 

RENUM 300 , 200 

ff#^ Lign^ 

ffS-^2ooa^b'^y <=■ ^7 lT##3ood^e. i o t^'Afcut-to 

RENUM 300 , 200 , 50 

fT##300;5^lb 50 t$'AfCLt-to 
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SAVE, LOAD, VERIFY 
SAVE 


^ 7’ P 9 AOigltj^Aix^o 

s A V E " X X X X " |c R I 

Saving Start A — t A:* -fe y F 

Saving, End. 

^lt«)-CT^F'o 

A P 7'9 AOF^§A^¥lJ^iSlu4rf+ttt:T?t'o ( 7r</^+-A ) 


*-b.y FT-'.y=t"^-, :* -9 7^ -dM^F'TF't LAlb, * 9 h r-7”0 

9 -< /i- FiiE A L t So F ' A T $ F ^ 
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VERIFY 


SAVE ^ -y ^ L t -j";, 

VERIFY |C R I ^A/JLT. 7” ^sr L-CT^ C'o 

iEL<s SAVE Verify end tM^'S-K'i'i'o 

end RESET =f^--r?jhi6T, SAVE f±E Lt:T$;'.'a 


LOAD 

*-t .y h 7--ylCA':>ti'^y‘ p 7'5 vtr ^ L t -fo 

■- •/ p 7'9 Aig 

L O A D " X X X " |CR| 

Loading Start 7" uT --T'7 

Found " X X X " 

Loading End *-b.y f ^riLi^TT^ t'o 

SAVE , LOAD^H, -t -r - 7 7 = - 'T ^ t 

%L, fo^#tpOA-t.y b-r .y=T^f£5«^, ^0 7-</ufcJ; t), * -t ,y h r - 

^i-fo 

p 7 t" i — 7 < , * -t .y f -r y =TOftt^>C 1 0 f "t'o 
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-t M'My — ^ u- 3 


- K'^rffii^aL-CTSi'o 

A-ky f- -fe*"S ^ ^ 7 " 5 ^'^{g^-rT$i'o 
rUI6n"p^*JMl'i'-7i:?)^'g-ii, tSia^Ao'Cl'Tii'io^J^SL'CT^ I'o 

SC — 3000 {Kl ;il-fe.;y h 

IN — LOAD. VERIFY ^ (EAR) 

OUT^ SAVE ^ -7^^ (MIC) 


REM 

7"p A^fFgg-f ;5B#i':i7' p A9 A0|A§^> 7° P 7*9 J; 5 i-c, 

< i^A-7°p 7*9 A y 7. h tfiEfOA-fo 

10 REM XXX XXX 

2 0 C L S 

30 PRINT 2+3 
I 

R EM5:ti. 7°p 7"9 
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CONSOLE 


^ v y ON, OFF, 

t-to 

V L C S 

^ ^ P -/i-isreg^ CONSOLE 5 , 15 , 0 , 1 



Siffiti, y 0~ 23firi!lt>ix-r3b- D S-to CONSOLEO^OiC^tt. p 

moj: snsA^h iBfrs t-eorBi/cH-*- 

A - y 23t-r:tCLX<tz^\,', 2AU±.^m'MLti-t. ^y-ii^fs:^ 
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t-fo 

CONSOLE „ 0 SSSOic^^ti, LfcB#©^ ’J -y ON, OFF Lf-tc 

0 ; 

1 : ^d'^tB2.o 

CONSOLE ,„ 1 

o; 'yy vfs:LX^±-x^ 

1 : '>-7 h 

A { , ) /cH-^ASLTT^'^'o 

CONSOLE:i«t, RESET -to 
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m 4 m 


m. 


R N D ( 7 V A ) 

^ Pog^tiiL/c -^-'-A-e 

iK«]^?FiaSO^-Sld^Lfc *) -t 2) Oi'CHflJ/iO't;- i 

R N D ( 1 ) 

R N D ( 0 ) 

R N D ( - 1 ) gL®t*?lJ4rAix^^^o 

SLi^^ffiL-CAt Li 5o 

10 FOR N=0 TO 10 
2 0 R = R N D ( 1 ) 

30 PRINT R 
40 NEXT N 
RUN 
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. 2380546294 
. 7041 382496 
.4925371138 
I 

1 ^ 9 > Lfciao 9 9 miWcTt'D-n'-f , 

NT ( n ) T V9i>+- 

I NTMic«, 

? I N T ( 3. 1 4 ) 

[M] 

3 - '\^Wiim^z>o 

READY 

p p 

10 FOR N=0 TO 20 
20 S=INT(RND(1)*6) 

30 PRINT S ; 
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40 NEXT N 
RUN 

3 5 0 4 1 5 0 

— 0 ^ Htl ^ 7i V i t r^l/c-f ^ 

20 S=INT(RND(1)*6) + 1 

*— ffiLTcl'®: 

1 ;5^ib6 LTc^^o Scfi^feAS^cTKLXT^V'o 

Egj^SA7“ p ^'' 9 A 

10 INPUT A - 
20 PRINT INT(A+0.5) 

30 GOTO 10 

'>i[.*^J-:iT^Eg^&^A-tS7’p 9*9 AA-fo -ixtt, 

A'l:A4 Li 5c 
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DEF FN 


V f ^ ^ 5 g * r 2. 

5 REM x>/pt>-tz 
10 DEF FNS(R) 

2 0 INPUT" 

30 Z=FNS(A) 

40 PRINT 

5 0 PRINT" 

6 0 END 
RUN 

n>>r^ = 1 0 
y >-lr + = 3 14.15 

DEF FNS(R) = R*R*3.1415ti, F N S ( R ) KMWlit 

LxmmLxio^t-r, 

fr## 30 


= R*R*3.1415 - 

= " : A 

= " : z 
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X ^ 5IJ M 


% 5 ^J^'L < fcL < M^JiLt L i 5o 

iLC'O't-fo ftfco-r^^ ;=^ h y 

*9 t-to 

^ vt°^-^£Dift;'i'i, i L i 5o 

ASC ( " n " ) 

ASCII ( 7 ) k Itt.^ American Standard Code Information Interchange ( T ^ D A y 

T^^yfl'-V 3-K -f V7 ;j. ^ 3 V ^ Vv> ) r ^ y *OSip::3- 

T'tmL-C^t Li 5o 

? A S C ( " A " ) I C R I h^ - K“C - ‘Mff 

6 5 

Ready 

L06 5 A^SfcL-CV't'to A S C*^{£5 i tii ( " A " ) O i $ IC, 

A y " " t;'0^-C-TSt'o 

A€)#^iC, 
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? A S C ( " ! " ) 3 3 t t L-tzfa., 

XX'^X^-t-fo 

*^o■t LTSl't-fo t:"t 

i>^h. A ( 65 ) HB ( 66 ) J; *9 5feri,:5 ifIJK i -fo 
? ASC ( "BA" )OJ;5r, 2 oy±Aixt:%$6&<D— Lf-to 

% 5 — -o^ L t L i 5 o 

10 INPUT A $ 

20 Q=ASC(A$) 

30 PRINT Q 
40 GOTO 10 

RUN Ly-cabi. 


CH R $ 

? C H R $ ( 6 5 ) I C R I 
A 
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Att. ASCII =! - F-Cnt65 -CL/c^a, 


10 FOR M=32 TO 255 
20 PRINT CHR$(M); 

30 NEXT M 
RUN 

=^‘ + 7:J'^--fe.y h ^^TT^'/'o '=’ - => - U-A'-fiao 

LEFTS, RIGHTS, MIDS 

10 AS = "3 — t— =337 5 " 

20 MS=LEFTS(AS,4) 

3 0 PRINT MS ■ '^ — (.&-h4mBtXX>-X'^) 

RUN 
3— t— 


- 80 - 


LEN 

L 


A $ ) €>4#@ t >) L"C, M $ 

^ t "tc 

10 A$ = "3 — t:— =13 7 5 JU7 " 

20 M$=RIGHT$(A$,3) 

30 PRINT M$ ^ P) 3 # i t 

RUN 

5 ;u7 

10 A$="3 — t:— 3 37 5 JU7 " 

20 M$=MID$(A$,6,3) 

30 PRINT M$ t 

RUN 

337 

h 6 i; LT 3 ip tB L t -fo 

( ) 

EN(A$)(t, A$<D^^WL-i;Wi.k.'r<hti-o =0«'o%> " " 
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10 A$="SEGA PERSONAL 
20 PRINT LEN(A$) 

RUN 
2 2 




0 t-fo 

1 0 A$= "**********" 

20 FOR 1=1 TO LEN(A$ 
30 PRINT LEFT$(A$,I) 
40 NEXT I 
RUN 
* 

** 

* * * 

* * * * 

I 


COMPUTER " 
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STR$, VAL 


S T R $ 

10 A= 1 : B = 3 

20 D $ = S T R $ ( A ) +S T R $ ( B ) 

3 0 D = A + B 

40 PRINT D$,D 

RUN 

1 4 -- 30 coign 

^ ^Tl^^ 20 <oign 

STR$(A)iLt-fi. t-To 

VAL 

vALMftit, ST R $ 

10 A $ = " 1 2 3 4 5 " 

2 0 B $ = " 1 1 1 1 1 " 
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30 C$=A$ + B$ 

4 0 C=VAL(A$)+VAL(B$) ^ mm^OtzLM 
50 PRINT C$ 

60 PRINT C 
RUN 

1 2 3 4 5 1 1 1 1 1 ^ 

2 3 4 5 6 ^ mm 


TIMES 

-y t: ^ om-M^ ON 1 

00:00:00 “C’-fo 

PRINT TIMES I C R I 
00 : 12:32 ^ M'S^AhXA^hoS^Fi^^ 
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mft 

10 TIMES =" 08 : 15 : 00 " ( " H# : 5- : # " ) 

20 CURSOR 15,15:PR|NT TIMES 
30 GOTO 20 

— <!:> Reset t Tt'f -f „ 

iix-C-T <0 t LAo 
S P C ( ) , T A B ( ^ !/-■> 3 -y ) 

P R I N 

SPC»T, 

10 PRINT "ABC" ;SPC(10) ; "XYZ" 

RUN 

ABC i_i i_i i_i i_n_i i_j L_i i_j i_j i_j XYZ 

1 0 ) 

TAB S r L t -to 

10 PRINT TAB(5):"ABC" 

RUN 
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ABC 


P R I N T:S:^DBt^cffi^.^t■tot:-J; Cl^tLi 5o 


I N K E Y $ 

:S:^ o i' O $ ;h fc ^ ^ 1, ^ “C-t c 

-ir'- AO J; 5 I. 5 ^' ^ - ) 

10 X$=INKEY$ 

20 IF X$="" THEN 10 
30 PRINT X$; 

40 GOTO 10 

fsi% i X $ ®fB 

it ( fnl% L/t'/'# ) ^ F y v^'i V'-pT, 1 0 i 20 ® PbI^ <’ 

4 ^o^-®fi;5>x$ fyfrlt-^-ao 

ft. >l®iSK/^-7';?)»!bffi^t?)icit, 
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25 IF X$="Z" THEN 100 
100 PRINT " END ":END 

ijiJoL-CTSC'o 

c: ii-C' Z^- ^Jf-t 1 7" p 5 A OllfT/i'ill- D f -to 

1^11 E1»S=^-'T;\ 

10 DIM D (29) 

20 CLS 

30 X=18: Y=20 

40 D (29) = -1 ; D (28) = 1 : D (0) = 0 
50 K$= INKEYS 

60 IF K$ = " " THEN K = 0 : GOTO 90 
70 K = ASC (K$) 

80 IF K >29 THEN K = 0 
90 X = X + D (K) 

100 IF X<0 THEN X = 0 
110 IF X >33 THEN X = 33 
120 CURSOR X , Y : PRINT " I + I " 
130 GOTO 50 
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F R E 


ot:i';5MD>)fcl'<i:^i'C, FREMi{c-t:-|i-<t-f„ 


PRINT F R E 
8 3 0 0 

^i8300BYTE F )0 7 "pA 5 A^AixS i id»A'§- f-fo 

-/') 


L L I ST 

A y -r Ap A7 A y F 

L I ST 

LLIST 7"p 

L L I ST fr#^ 

LLIST -nrS'^ ~ trS’^ 
LLIST - fr#^ 

LLIST fr#^- 
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OUT 


^$^-Ci,'t-to 

tatl^^- 0-255 ( &HOO~&HFF ) t -eoSiCtr-to 

VDP &H BE 

n V K l^ i> ^5! & H B F 

V Ki>a.T> &H 7F 

POKE, PEEK, CALL 

B AS I C T:'7" p ^'5 i> )li#i'-^ -t y 

y-fc, iA>m*t-tc 

P 0 K E ( - ^ ) T FV;^ T-^ 

POKE &H9000,65 

T F &H8000(-32768)~&HFFFF f -CA'-to 

0~255 t A'O^iiA-to 

i^TFi/;^fi. BAS I CO^<-v>3 
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P E EK ( 


7 K 


A=PEEKC&H9000) 

K V 7.(0 A ^ y -ort^^rBc^tBLt-to 


& H 0 0 0 0 


& H 7 F F F 
& H 8 0 0 0 


& H F F F F 


7 ■i '7 • 7 ^ .y'/ 



ROM ) 

POKE^^^t^lx.^■tir^c 


RAM Hftlc 

( 32 KBYTESIgB#) 
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DATA 


10 REM *** DATA 

20 INPUT "data=";d 

30 IF D=>256 THEN GOTO 20 

40 P0KE&H9000,D 

50 A=PEEK(&H9000) 

70 B$=CHR$(A) 

80 PRINT a;"=":b$ 

90 GOTO 20 
RUN 

D AT A = 6 5 
6 5 = A 
D AT A=H 

A* L A A p 9 A A'-to 2 5 6 % 5 -SAA 

t-to 
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CALL 


s«i§ ( -> ym )iit. BAS I CWfSi ^ t *^o 
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LPR I NT 


yy v^-^PR I t-fo 

o y --yjiit. p R I N T ^ i ra ct-f o 

LPR I NT A ^ AOF^g^y y Vi5f 

10 INPUT A , B 
2 0 C =A + B 
30 LPRINT C 
40 GOTO 10 
RUN 


HOOP Y 

Ld^L> y y ASCI i ::^ - K(Dia#<o»^ 
■C"to y 7 7 ^ .y ^ -t - F cDl2-§-tt#!^ t ^o 
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-57' 7 7 >f • ■/ 7 


#t'-tc Li 5o 


+ Tife®fe^Jt^L4-ro 

•^J ^L ,y b " 1 " Ofe ^ *'' ■>' 

COLOR 1 , 5 , ( 100,100)-(150,150 ) , 7 

y b " 0 " Ofe '* -y L "f 2)150 

■r=^^;^ bBH( ^ p A^A^Lt2)iii® ) 

L.y b " 1 " 

t-to 

y 9 7 ^ ( 9*9 7 ^ y ^:s;t:'S^-t2>Bffi ) 

t" .y b " 1 " Ofett, 
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p R I N T:i;r j; 

L I N E , P S E T 
LINE, 

P A I 

\£ .y h " 0 " Ofe 
T%€>fe 

B L I N E , P R E S E T , r i if' y h " 1 " 


COLOR 

RESETS- -t t 

t-to 


10 CLS 40 FOR l=0 TO 300 

20 FOR C=0 TO 15 50 NEXT l,C 

30 COLOR 1,C 


*1 t-to ^ y ^ -y 


fe#^ 

fe 

fe#-^ 

fe 

fe#-^ 

fe 

0 

m m 

6 

i 1/' # 

1 2 

- L' S 

1 

M 

7 

7lcfe( v'TV) 

1 3 

-V -b* -y 

2 

i 

8 


1 4 


3 

^■tL'g 

9 


1 5 

fi 

4 


1 0 




5 

5 '1'L'^ 

1 1 
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SCREEN 


SCREE 'O 

7" 7 7 ^ 5, 7 ?) 1 1 ' t i'c 

SCREEN ##2;^®®^ S^Bffi 

" Y ^ 

* 



X^r 7. h SlB 

7’ 7 7 ^ ,y 7 Bffi 


*:t2i^BfflOjB7K 


TJnB®®®^ 


P R I N TXtt 

C L S#0#t 

2.^ 



\-r ^ 

b B ®| 


1 7 ' 7 7 ^ 

y 7Bffi| 
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LINE 


(SCREEN 


0 



!fyy^ y x:^Ir] 

«Od^e. 255 ( 256 F y L ) 
y^^ktOi^h 191 (192 

F'y F ) 

■to 


SM'O'^U 

( 1 ) L I N E ( 50 , 50 ) - ( 200 , 50 ) , 1 Mfe®^ 
( 2 ) L I N E ( 50 , 1 00 ) - ( 200 , 1 50 ) , 8 
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t-to 


m^m< 

L 


10 SCREEN2,2:CLS 
20 LINE(50,50)-(150,50),1 

30 LINE-(50.150),8 



-To SHIP Lt ED 

L "C T $ 'o 1 5 7 ^ y ^ 

^ t -to 


: B OX ) 

I N E:Scr^nnm'^m‘MLx. feo^rB^#(t-rT^i'o 

10 SCREEN 2,2:CLS 
20 FOR C=0 TO 15 

30 LINE(80,50)-(160,100),C,B 

40 FOR 1=0 TO 300:NEXT I 
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50 next C 

60 GOTO 60 ( Lf LTCo B R E AK 0 f -f ) 

f|£04’^^'3 4 Li 5o ^T»^T30^0 B Ofi:r F 


B L I N E 

t-fOA'l' f 

10 SCREEN2,2:CLS 
20 LINE(50,50)-(200.50),1 

30 FOR 1=0 TO 300:NEXT I 
40 BLINE(50,50)-(200,50) 

50 GOTO 50 

l4feA^/gx4-to 
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PA I NT 


iiiffif:: LINE CIRCLE t-fo 
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PSET 


iSffiioJiS $ Hfcfigr .iS ^ ft- t -to 

fe 


P S E T (x , y ) , 1 


1 0 

SCREEN 2 

, 2 : C L S 

2 0 

X = 0 : Y = 9 5 

: E = 1 

3 0 

P S E T (X , Y 

) , 8 

4 0 

X = x-I- 1 : Y = 

Y -F E 

5 0 

IF Y = 1 2 0 

THEN E =- 

5 5 

IF Y = 8 5 

THEN E = 1 

6 0 

IF X = 2 5 0 

THEN END 

7 0 

GOTO 30 




PSETtt. 


. tz ^ y 7 o /c ?) L t -to 


- 101 - 


PRESET 


P S E T i L t -fc P S E T i 1^ < # () 0 -t:"f „ 

ct-to 


PRESET(x,3/) 


POSITION 

= 0 , ;y = 0 -e-to 

P 0 S I T I 0 N :i; Tr-ffig ^ Jts-t ?, i , 

X = 0 , y = OllC. 

ts: <J t-fo 


X =0 a: =100 



( X =0, y =0 ) 

L_ 



xm ym 

POSITIONClOO ,80)0 


1 1 — y 
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0 , JgS X 

1 ,Jg^ 

yit±Ki^MLt-to 


POSITION (100 , 80) 

r 

(x) ^ 
1 oBtoiiJn 




1 

0 

S 

C 

R 

E 

E 

N 


2 

, 

2 


C 

L 

S 

2 

0 

P 

0 

S 

1 

T 

1 

0 

N 

( 

1 

2 

5 

, 

9 5 ) 

3 

0 

F 

0 

R 


N 

= 

0 


T 

0 


5 

0 


4 

0 

P 

s 

E 

T 

( 

X 

9 

Y 

) 

y 

1 




5 

0 

X 

= 

X 

+ 

1 

: 

Y 

= 

Y 

+ 

1 




6 

0 

N 

E 

X 

T 


N 
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(y) 

1 CDB^cDlgJn 


(x = 0 , j' = 0 ) 


(x) 

0 0B#€) 
i^SP 



0 0B#0±iJn 

(y) 

1 . 1 



POSIT ION PSET 


1 0 

SCREEN 2,2 

: C L S 


2 0 

P 0 S 1 T 1 0 N ( 1 

o 

o 

5 0) ,0,0 

3 0 

FOR N =- 1 0 

T 0 

1 

S T E P . 1 

4 0 

X=N*20+1 20 

: Y = 

S 1 

IN(N)*50+45 

5 0 

PSET ( X , Y ) 

, 1 



6 0 

NEXT N 
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CIRCLE 


C I RCLE:S;rtt, h ibAA LtT 

^ L 'o 

(1) (2) (3) (4) (5) (6) (7) 

j®^ fe itm 

CIRCLE ( 125,95), 50 , 5 , 1 ,0,1 , BF 


(1) 

:*:=125 , >-=95 

• (xA[S]ftA 255, y :5'l^aSA 191) 

(2) 



(3) fe 

0~15t“C 


(4) Jt¥ 

1 Oi t 

*R 


1 J; 

i t:SO/cR 


1 i *3 Att' 

A-C^RcofcR 

(5) 



(6) 


( lb 1 1 t?oP0Te/i/'i5:,^,-C'AA-t bo ) 


(7) B F ^JtR^OAfS# f-fo 
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B -to 

B F i-C-t ?. i (3) t;'fg^ L fcfe t:-^ f} L t -t, 
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1 0 

S C R E 

E 

N 

2 

, 2 : 

C 

L S 


2 0 

FOR 

R 

= 1 

0 

T 0 


50 STEP 

10 (^li;6'^10':3'o±g;fi"f) 

3 0 

CIRC 

L 

E 

( 

1 2 5 

t 

9 5 ) , R , 8 

, 1 ,0,1 

4 0 

NEXT 


R 






5 0 

GOTO 


5 0 







BC I RC L E 
CIRCLE 

<ts:<o t-to 


gij to y p 

Li 

5o 


5 0 

FOR R=10 TO 

5 0 

STEP 10 

6 0 

BCIRCLE(125 

,95) 

, R , 1 ,1 ,0,1 

7 0 

NEXT R 



8 0 

GOTO 10 
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PATTERN 


PATTERN ^ ^ - 


PATTERN C# K ( 32~ 255 Xit,&H20~&HFF ) 


( 1 6 ) 



£ 


£ 


0 111 

0 0 0 0 

7 

0 

10 0 0 

10 0 0 

8 

8 

10 0 1 

10 0 0 

9 

8 

10 10 

10 0 0 

A 

8 

110 0 

10 0 0 

c 

8 

10 0 0 

10 0 0 

8 

8 

0 111 

0 0 0 0 

7 

0 

0 0 0 0 

0 0 0 0 

0 

0 
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20 PATTERNC*&H20 " 70 8. 8. 9 8. A 8. C 8. 8. 8. 7000" 

RUN 

" o " Lfctao ^ tc " o " 

% $-g, 

© C # y-^y b 

© 1 6ji®[<7):^'g-. & H 20d^lb& HFF t'C'OSfi'C'AJ/Lt-fo 

10iii5[O«-a-, 32d^ib255 f t:'0&fit:-A*Lt-to 
© 8 X 80-v;^@ K.;, b4rll<SDo^LT:5;!?^0^^r}S#l 

■to 

, fi^-\'St0 t iO^rfflartto 

I |~[~] tto 1 1 1 0 0 0 Orf£ f? f to 

1 6 L t to 

0 1 1 nt 7 , 0 0 0 0 ti 0 A\ " 70 " t 7 j: t to 
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s # 

=7 'i h 


;fy7 ^ 

0i^h255 t“eo##;4HWib^t-to 
7-^y. b -t- Ktrai:{gb':5-t?A^JL4i-o 



0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 0 
0 0 0 1 
0 0 11 
0 111 
1111 


0 0 0 1 
0 0 11 
0 111 
1111 
1111 
1111 
1111 
1111 


0 

0 

0 

0 

1 

3 

7 

F 


1 

3 

7 

F 

F 

F 

F 

F 


10 SCREEN 2,2:CLS 

20 PATTERNS# 0,"0103070F1F3F7FFF" 

30 SPRITE 0, (10,0), 0,1 

RUN 


J ^ S C R E E N 2-xmt-to 
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^ — v ^ — FOi§'8x6 

^'"7 7 ^ -y 7 -=&- KO 1 1 8 X 8 

■t?, SiH 4 -to % + 7 h K'C'8 X 8 ^Jg£L-r %:&0 2 

f-f, ^'9 7iga^8 X 8co-7 7.grf±®0. K-yb(-77.g — 7:0-)4r^Oo^'Lr-':5'-v 
IrfF *) f -to 

^ofcl5f^> 1 , 0 tLtt-o -^7.g(D®r 0t>1 0&¥^M-<-rT?l'o 

a£^fc 8 ^r-or^H-rraft-dofc l f -to 2 ib:b l t 

to -ix^^ffitii63iStrEL2ffioi6iil:fc*Lffo 

16iir*$H/c8moS:!?-;4'i^!t?y^iL-C'' " ^Dtrft A^ixt t^o 
t;!tii8x6, 7"77^ ,y7tt8 X 8 A-Sa$t.tto 
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^om§c 

2m^ 

i6ii& 

0 

0 0 0 0 

0 

1 

0 0 0 1 

1 

2 

0 0 10 

{Vffc±.<0) 2 

3 

0 0 11 

3 

4 

0 10 0 

4 

5 

0 10 1 

5 

6 

0 110 

6 

7 

0 111 

7 

8 

10 0 0 

8 

9 

10 0 1 

9 

1 0 0 1 0 

A 

1 1 

10 11 

B 

1 2 

110 0 

C 

1 3 

110 1 

D 

1 4 

1110 

E 

1 5 

1111 

F 

1 6 

1 0 0 0 0 

1 0 (ttfcJii?) 
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MAG 


P AT T E R 7" 9 T b t $ 

j— 8 t" 5, b — -| 


MAG 0 8 e -y b 


S # 0 


1 e .y b = 1 K -y b 


1^16 tf -y I ^ 


MAG 1 16 t' -y b 


#0 

#2 

#1 

#3 


MAG 
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|- — 8 F ^ 


MAG 2 


MAG 3 



16 F' 
32 f' 


F 

F 


16 F' -y 
32 -y 


#1 


#2 


#3 
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2 e' -y F X 2 t' y F ^ 
1 F'-y F t-f^o 


MAG 2 ^ 4 

®<o 


M A G 0 1 t:' -y h ^ 1 K ,y h i LT. 8 x 8 K ,y h f-fo 

MAGI t;1i, 8 K -y h x 8 F -y K0-< ^ - v 0 4 (#0~#3,#4~#7 

.■■■••■> #252~#255) Lt: 1 6 K -y h x 1 6 F -y h O# 

M A G 2 2 t" -y h X 2 t:' ,y h ^ 1 F -y b i L^:. 8 x 8 F -y b 

t-to 

t:' -y h 1 6 IF' y ^ X 1 6 e'y b r fj; 0 t -to 

MAG 3 -r-fi, MAG 2-t:'JgSLfc#^r4 0'g-i,*-r}t< ^LOm-^ht 

32 f -y b X 32 t:' -y b rfj: <9 f-fo 
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SPRITE b ) 


MAGJC. PATTERN;*, i O SPRITE *ft|6^r^d^“arf£V' 4 

Otr-fo 

0~31 

SPRITE Hill'?’, (x, y ), ^ 7" 5 -T b fe 

^7-9T bffltt, 0##d^ib31 

T^y V 'i b ?) B#, f) f “ft, 

mWMi^'yy^ y7Bffl^{£b', S?p(i MAG^^trJg^Lfc#©— #£_h0)£«T:- 
■to 
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PATTER N5;-C'#(tt. S# ^^(DZtVt 


?) 5Af*^0 ^ ?> t -to 



ft 7T b tt, 7jc¥IS_hi'^S;^ 4 - vf ■t:'S7J^$^^^'t■o 4'(@y_h€>^'^ - 
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mem m ^ ^ <0 2 

V h ^ ^ ft, o ?> fcabr, 

thx^o <y t -fa 

ABS (X) 

® fg 5S;xo|6>t^fi^-^^t-fo 

P ^ A B S ( X ) 

PRINT ABS(-5) jc R I 5 
PRINT ABS(3x(-6)) |C R | 1 8 

RAD 


® tg vr^^Lt-to 

5^; R A D ( X ) 



0 ° 

, 1 5° 

0 

0 

00 

,45“ 

,6 0“ ^7i^7'yicmm-t?>o 

1 0 

2 0 

F OR I =0 

X = R AD ( 

T 0 

I ) 

6 0 

STEP 15 

3 0 

P R 1 

N T " 

R A D ( 

" ; I 

: " “ ) = " ; X 
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40 NEXT I 
RUN 

R A D C 0° ) = 0 

RAD(15°)=. 261 7993878 
RAD(30°)=. 5235987756 

DEG 



DEG(X) XI/t9i>V 


o 


PRINT DEG(0.26) 

1 C R 

1 (14.896902673) 

m m 




M ^ 

PRINT PI |CR|(3. 

1 4 1 

5926536) 





1 0 

1 N P U T " l\>tTA " ; A 



2 0 

S = A^ 2 * P I 



3 0 

P R 1 N T " X> / " 

: s 


RUN 
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? 5 

78.539816333 


S I N ( -tf ^ V ) 

a tb 

a 5^; siN(x) ?liS[ ( X ) V 


1 0 

FOR 

TH=0 TO 90 STEP 

2 0 

S = S 

1 N ( R A D ( T H ) ) 

3 0 

P R 1 

NT th;tab(io);s 

4 0 

NEXT T H 

RUN 



0 


0 

3 0 


. 5 

6 0 


. 86602540379 

9 0 


1 
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cos ( =!-v- 4 y ) 


M ^ COS(X) ?li5t( X ) 7i>Ty 

10 FOR X=0 TO 90 STEP 30 

2 0 A = C0S ( R AD ( X ) ) 

30 PRINT x;tab(io):a 
RUN 

0 1 

30 .86602540379 

60 .50000000001 

9 0 0 

T A N ( i!? V v> oi V F ) 


m ^ TAN(X) ?li[( X )ti9-:>7'v 

10 INPUT" KX'!? " ; A 
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2 0 X = T AN ( R AD ( A ) ) 

3 0 P R I N T " T A N ( " : A : " ° : X 
RUN 

KT.*:; 3 0 

TAN(30°)= .57735026919 

ASN ( V ) itIES 

® m s I N ffo ffomc&m) 

M ^ A S N ( X ) xti-1 ~1 

10 X=A S N c . 5 ) 

20 Y=DEG(X) 

30 PRINT Y 
RUN 
3 0 

ACS(r-^:3-^^V) 

^ m cos ff(Offcom(S^)^^^i-to 
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X - 1 ~ 1 


A C S ( X ) 


1 0 

X = A C S ( - 1 

2 0 

Y = D E G ( X ) 

3 0 

PRINT Y 

RUN 



1 8 0 


A T N ( T - ^ ^5! v V b ) 'MiE& 

m m 

M ^ AT N ( X ) 


10 X = A T N (1 ) 
20 PRINT X 
RUN 

.7853981634 
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S G N ( V ) 


0 0 
1 

M ^ S G N ( X ) 


10 FOR I=-2 TO 2 

2 0 N = S G N ( I ) 

3 0 P R I N T " S G N ( " ; I ; " ) = " ; N 

40 NEXT 1 

RUN 

S G N ( - 2 ) =- 1 
S G N ( - 1 ) =- 1 
S G N ( 0 ) =0 
S G N ( 1 ) = 1 
S G N ( 2 ) = 1 
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LOG 

B ^ L 0 G ( X ) 

10 FOR J=1 TO 3 

20 X = LOG(J) ^ ^mJaiEom-C-po 

3 0 P R I N T " L 0 G ( " ; J ; " ) = " : X 

40 NEXT J 

RUN 

L0G(1 ) = 2.67468532E-11 
LOG(2)= .69314718057 

L0G(3)=1 .09861 22886 

L TW 

B L TW( X ) 

L OG il^CT?-tc 
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L G T 

m ^ L GT ( X ) 

1 0,1 0 0,1 0 0 

10 N = 1 
2 0 N = N * 1 0 
30 X=LGT(N) 

4 0 P R I N T " L G T ( " ; N : " ) = " : X 

50 IF N<1000 THEN 20 

RUN 

L G T ( 1 0 ) = 1 

L G T ( 1 0 0 ) = 2 

LGT(1000)=3 

EXP 

m fg e 

M ^ E X P ( X) 
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10 FOR 1=1 TO 3 

2 0 X= E X P ( I ) 

3 0 P R I N T " E X P ( " ; 1 ; " ) " : X 

40 NEXT I 

RUN 

EXP(1 )=2. 7182818284 
EXP(2)=7. 3890560987 
EXP(3)=20. 085536923 


S OR 


0 s 

SQR ( X ) 




1 0 

INPUT" " 

: A 

2 0 

X = S Q R ( A ) 


3 0 

PRINT" ;u— h " 

: A : " 

4 0 

GOTO 1 0 


RUN 
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XOv 2 

JU— f. = 1 .41421 35624 
X-l/v 3 

JU— ^ = 1 .7320508076 


H E X $ 


® fg 1 Oiti5[Oi!cfI^1 6iir^^Lti-o 
3^; H E X $ ( X ) 

1 su es'^ 327 67 (om-rs-t, 

-10,-5,0,5,10, 15^16^ir^JfeLt-tc. 

10 FOR S=-10 TO 15 STEP 5 
20 X$=HEX$(S) 

30 PRINT s:"=";x$ 

40 NEXT S 
RUN 

- 1 0 = F F F 6 

- 5 = F F F B 

0=0 1 o=A 

5 = 5 1 5 = F 
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I SOUND I 

SC- 3000 fcti, f -to 

m 

SOUND 1 , 1000,15 

t ^ 

B s 

1 0 0 0 cDW*'^“Ct Lfco 


< "?■ -v y ^ > 

1 1 0 ~ 5 f "CO 6 

0 : W^-i^Lf-to 

SOUND 0 

1 ~ 3 : 1 1 0 Hz ~OW^ffiLt-to 
4 : * 7 -f h / -f XcoStR 
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t -to 


<m ® §L> 

AJLhtd (O t^it^ 

o~2 : t-fo 

3 : ^■v'y:t^^3x-m'm-t^m-^WLKtsii)t-to 


0 : 

1 : 
t 

1 5 ; ft^OWio 
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f 1 

f2 

f 3 

f4 

f 5 

c 

K 

/\ 


131 

262 

523 

1 047 

c* ■ ob 




1 39 

277 

554 

1 1 09 

D 

U- 

H 


1 47 

294 

587 

1 1 75 

D+ , E& 




1 56 

31 1 

622 

1 245 

E 




1 65 

330 

659 

131 9 

F 

7 t 



1 75 

349 

698 

1 397 

F+ , G^’ 




1 85 

370 

740 

1 480 

G 

V 

F 


1 96 

392 

784 

1 568 

G* , Ab 




208 

41 5 

831 

1 661 

A 

7 

'( 

1 1 0 

220 

440 

880 

1 760 

A* , 



1 1 7 

233 

466 

932 


B 

-> 

a 

1 23 

247 

494 

988 



Hz. 
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BEEP 


7P AOif-e. 


BEEP 
B E E P 0 
B E E P 1 
B E E P 2 


BEEP 


1 0 

A $ = 

"SEGA 

P 

ERSONAL COMPUT 

2 0 

FOR 

1 = 1 

T 0 

L E N ( A $ ) 

3 0 

P R 1 

NT Ml 

D $ 

( A $ , 1 , 1 ) : 

4 0 

BEE 

P 



5 0 

FOR 

J = 0 

T 0 

1 0 0 : N E X T J , 1 

6 0 

END 





- 132 - 


I N P 


I/O OUT 

I/O bS-^^fgSLr, 4^”- -to 

10 A=INP(&HBE) 

20 PRINT A 
RUN 
3 2 

frS-f-IO-C'I/O --1^- MI#B E ( 

i 3 V b" ^ ^ ottffir J; O -to 

1 /O x:- h^-^it'yy^-rJ>~fX'i-XTC'i^^-^hXl':5i><DX\ 0~25 5 (&H00~ 
& H F F ) tX<Dm&X-to 
^g|3A/ygB'tri)Si>a -y 
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ST I CK ( n ) 


7 > n : 1 
2 



1 

2 


cm-trn ) 


(£) 7 


(±) 

1 


8 

2 


0 

6 

4 


5 

(T) 


3 (^J) 


S T R I G ( n ) 


'<9 ^ n : ^ : i> 3 '{ yi i' 1 

2 :i> 3 -f 7 .T^-y^ 2 


( „ 

0 : ::^-7 

1 : 1- y *' ( £ ) O N 

2 : h y *' ( * ) 0 N 

3 : by*' 0 N 
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<STICK,STRIG> 

SgcLfcJOYST I A 


1 0 

REM JOY 

S T 1 

C K 


TEST 






2 0 

B $ = " S H 0 0 T " : 

C 

L 

S 







3 0 

P 

1 = S T 1 C K 

( 1 ) 

: 

P 

2 

= S T 1 

C K ( 2 ) 




4 0 

S 1 =S T R 1 G 

( 1 ) 

; 

S 

2 

= S T R 

1 

G ( 2 ) 




5 0 

F 

1 $ = " " : F 

2 $ = 

II 

II 








6 0 

1 

F P 1 = 1 

THE 

N 


F 

1 $ = " 

U P 

" 



7 0 

1 

F P 1 = 3 

THE 

N 


F 

1 $ = " 

R 

1 G H T 

It 



8 0 

1 

F P 1 = 5 

THE 

N 


F 

1 $ = " 

D OWN 

11 



9 0 

1 

F P 1 = 7 

THE 

N 


F 

1 $ = " 

L 

EFT 

It 



1 0 0 


IF P 2 = 1 

T H 

E 

N 


F 2 $ = 


U P 

11 



1 1 0 


IF P 2 = 3 

T H 

E 

N 


F 2 $ = 

II 

RIGHT 

it 



1 2 0 


IF P 2 = 5 

T H 

E 

N 


F 2 $ = 


D OWN 

11 



1 3 0 


IF P 2 = 7 

T H 

E 

N 


F 2 $ = 

II 

LEFT 

It 



1 4 0 


IF S 1 > 0 

T H 

E 

N 


F 1 $ = 

F 

1 $+B$+STR 

1 N G $ 

1 5 0 


IF S 2 > 0 

T H 

E 

N 


F 2 $ = 

F 

2$+B$+STR 

1 N G $ 

1 6 0 


CURSOR 

1 , 1 

0 

: 

P 

R 1 N T 


PLAYER 

1 " 

: F 1 $ 

1 7 0 


CURSOR 

1 , 1 

5 

; 

P 

R 1 N T 


PLAYER 

2 " 

: F 2 $ 

1 8 0 


GOTO 20 
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I VRAM MAP I 


& HOOOO 


& HI 800 

& H2000 


& H3800 
& H3B00 

& H3C00 


V R AM ( 1 6 b ) 
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fiEI &H1800~&H1FFF£D2K-<'fh F ( F 

^ -y i -5't:T-7Vl^rt§;&;^Sc 

'( ^ y (ram) fc-fe-y 
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V P 0 K E 7 K , 7 


(x=^7.b-t-K) 


X -» 
0 12 


39* 7 A 




23 


7 Fv^T. 
&H3C00 


I 40|ffx,«24fT=960^'-1' h 
TEXT MODE 

I#074^7. 1 -t- FI 
S;^I^038*9A 


SCREEN 1 


(0-255) 

0 — X 


191 


7 F 1x7 
&H0000 


^'97^ F 

®,256 F-y 1 xmi92 F<y 1 /8 
=6144x'^ 1 

SCREEN 2 


255 


VRAM MAP 1® 


74r7 10^07 F i 5 
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)=3^*40+x + &H3C00 

fcfzL (x = 0~39 ,>' = 0~23 ) 

- ^ - F( 103ii5:-e0~255 3ltt16ii-e0~ 

&HFF ) t:-*So 


ft 


CURSOR:]t^|£fflL fzmmiiLm t VPOKEfcJ:?> i tt fc 2 
■og-cj'^f i-„ 

142 ^<->>#11 
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VPOKE T 


7 7 ^ y ^ BSJ/S 


^•'7 7^ -y ^ tor K J; 5 K-fsfsi^H^o 

4 y ^r Vyy-= \ NT ( y/ 8 ) * 256 + l NT ( x/ 8 ) * 8 +3^ MOD 8 
fc/cL ( ytiO- 1 91 ,xti0~255 ) 

±coimi!^j:^rmhH6 7 f e- y > c k.^ h )(D^m 

r K y7-e-t„f^^LtiT K i - 1 nt ( x/ 8 ) * 8 e' 

.y b 

m>yfc-tr'-fiit, mi ^^1‘Oii'y h-<y-'yr:'m^^H6i6M. XitiomHiTrS^o 


1^J 


o & H 9 3 ( 1 47 ) 


y'yy ^ >y 9-7=--7 "/i- 7 iiieor K H 

2000^Jnx.fc4®'eS) 0 , b (-''t b )fi€>g^i[ ( 0 ~ 255 ) 

-t:-, .23tx-^ritL-C±fi:4 bit d'^ffiSfe#-^-C-T{44 bit 

<K!7yy A y 7 0'<y - v-b'T' u- y^-y’/^t y -y--y' ii'Oy K 1 #1 fc 
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y 7 7 ^ ^ -y - y’ ;i,y K' U 7 , 


= INT (3^/8 )*256 + INT(x/8 )*8 
+ y MOD 8 + 8tH2000 

y 0 ~ 1 9 1 

xti0~255 

6 T-' - = Jh * 16 + WSfell-f- 

( 0~15 ) ( 0~15 ) 
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SCREEN 


tt: H ffi 
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VPEEK 


1 


VP E EKigffiftVPOK EOT K LT < /c^lv 

1/- ^5? T-T /KDF^§^^;^:fe?)7°p if=7J>~ 

m 

10 AD=&H1800 + &H31>K8 : REM " 1 " <D'<& - TO 

20 FOR A = AD TO AD + 7 5feIiT K TT. 

30 DA=VPEEK(A) 

40 PRINT HEX$(DA) 

50 NEXT A 
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ic ffi Be ?ij 
^ ? ?|J i: 


5: ^ Be ?ij 


A , B , Z , A A , A B , Z Z 

A 0 , A, 1 A 9 

('Ss^ , ) 3 A(15), B(5,5), 

A C ( 3 , 3 , 3 ) 

A $ , A B $ , A 1 $ 

( , ) 3 A $ ( 1 5 ) , 

B$ (5,5),AC$(3,3,3) 




Si® 2^'^XKSfl't^ 
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• Eii[i;Be?lJO«i|fi*'i|E0i:t;-4Sl'c 
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0 . 2 , . 3 , - 


QM) 

3,E99,- 

4 E - 8 2 

• 1 6 ^ 

8iH [ 

1 6 iiofil 


cm) 

&H6 4 

&HF F F F 
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GOSUB, RETURN V7* 
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7.x- h>> hx Klifc 


3-7> K 


No. 

3 -v V K 

m m 

1 

LIST 

7“p A^iiiiiii'C^^i‘^0 

2 

L L 1 S T 

7° p 5 A ^ 7 y V ^ 

3 

SAVE 

7"p 7'7 .y b 

4 

V E R 1 F Y 

^^yf^C»7“p^'7Ai;;^;-te,y b-r - 
^ tLfc 7" P 7 A Oit^o 

5 

LOAD 

:* -fe .y b X - 7’0 7" p 7" 7 A ^ ^ y IC P - K 

-t^o 

6 

RUN 

7"p 7*7 A^^fj-f^o 

7 

C 0 N T 


8 

N EW 

MWl. 7°p^^7A^7 y r-tSc 

9 

DELETE 

7°p 7*7 A^a5:0-6^('C7 y 7-t^„ 

10 

AUTO 

7 ^ 7 X 7 ^ g ?) O 

11 

R E N UM 

7-f 7 7-7x<^Obtfj;So-t-o 
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NO. 

X - 1 / V h 

m m 

1 

REM 


2 

STOP 

y- U CONT ic J; 0 Mfr o 

3 

END 

y° ^ if y i. 

4 

LET 

ftA ( ) o 

5 

PRINT Xli ? 

xA y^y U’T ?)o 

6 

LPRINT JLht L ? 

x"y 

7 

INPUT 

=P-AA 

8 

READ 

“DATA” y^y- Y yvV (Dy- 

9 

DATA 

“READ” yy- b V 1- r J; 

10 

RESTORE 

“READ” ;ax- b V b r J; OScAAtb “DATA” yy-Y 

y y Y<Dmm^m^i-^o 

11 

DIM 

SS^iJ^^Wo 

12 

ERASE 

's'wsAfcga^u^^' y 

13 

DEFFN 


14 

GOTO 



15 

GOSUB 

'YY-y'/i' — ^ y 

16 

RETURN 

-Y>-y'/i' — ^yi^io(DM Oo 

17 

ON ~ GOTO 

ON ~ GOSUB 

S-fe-t ?> o 

18 

FOR ~ TO 

STEP ~ 

NEXT yy- b V b 

STEP 

19 

NEXT 

“FOR” yy - Y y y 

20 

IF ~ THEN 


21 

CONSOLE 

y p — /KOiKH^ y V y ^ y y f’ --b: y Y ^ 
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NO. 

1 ^ V b 

W: fg 

22 

CLS 

HiB^^ y /'■f ?)o 

23 

SCREEN 


24 

COLOR 


25 

PATTERN 


26 

CURSOR 


27 

POSITION 


28 

PSET 

5 ■Oo 

29 

PRESET 


30 

LINE 

< o 

31 

BLINE 


32 

CIRCLE 

<o 

33 

BCIRCLE 

nx-ii-ta 

34 

PAINT 


35 

SPRITE 

;^7"9 4' b ©fig. 

36 

MAG 


37 

SOUND 


38 

BEEP 

BEEP§^^^$*^o 

39 

HCOPY 

bBffi0rt§^7" y '77121=! U — i" So 

40 

CALL 


41 

POKE 

7 ^ y 

42 

OUT 

hKiatii-^o 

43 

VPOKE 

VRAM ICt - 7 


h ^ v h BASIC 2 
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m 


NO. 

m fc 


1 

ABS(x ) 


2 

RND(x ) 



3 

SIN(x ) 


4 

COS( X ) 

X O =!■+(- ^ 

5 

TAN(x ) 

X 0^5' V h 

6 

ASN(x ) 

X 

7 

ACS( X ) 

X (07- 

8 

ATN(x ) 

X o T - ^ V i> oi V 1 

9 

LOG ( ^ ) 


10 

LGT ( a: ) 



11 

LTW(x) 

X <o 2 

12 

EXP( X ) 

e <0 X 

13 

RAD(x ) 

i>7 

14 

DEG( X ) 

9 i>7 

15 

PI 


16 

SQR(x) 


17 

INT(x ) 


18 

SGN( X ) 


19 

ASC(s) 

s COMWIO =■ - ?>o 

20 

LEN(s) 


21 

VAL(s) 
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NO. 

M fc 

§ 

22 

CHR$ (x) 


23 

HEX$ (jc ) 


24 

INKEY $ ( X ) 

0 (NULL) 

25 

LEFTS (s,x) 

■X'^n s X # g t 

26 

RIGHT $(s,x) 

X^n s h x^Bt X^oX'^n-%:^k. 

27 

MID$ (s, x,>) 

x^nso:tiA^h :y 

28 

STRS (x) 


29 

TIMES 


30 

PEEK( X ) 

/ ^ y - 

31 

INP( X ) 

hOAtl^H^-^XX^o 

32 

FRE 

y y 

33 

SPC( X ) 

7" y V b 1 ^ V 1 -C'ffilB, 

34 

TAB( X ) 

7 y V b ^.-r - b 7 V b 

35 

STICK (n) 

i>3-47<T^ y ^ n 

36 

STRIG (n) 

-:> 3 -f ;^r .f ,y 7 ri o b y .y vcoVtM'^TxXc 

37 

VPEEK(x ) 

VRAM 
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X -7 — ^ -fe — ^ 


1 * FORMAT 


(1) 3 -7 V X - h ^ y l- tcAtl LAB#, ^ 5 - Ltz^-^o 


? y •■/ -fe— error 


( 2 ) T^^y- h -A'^^^LtzW'ao 

? •■/ -fe— >5 error in 




(3) INPUT XX- b ^ V b i-c J; A'^^>ofc®'a-o 


_jt ../-b— 'X 
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> .y — 


System 

BASIC -f V ^ 7 y V CO 7° p 9 A COtSffSp^- 9 - o 
( <? ) 

N-formura too Complex 


S-formura too Complex 


Overflow 


Division by Zero 

^»co^e;!)-i 0 o 

Function Parameter 


String too long 

2 5 5^^---- Lfco 

Stack overflow 

• ^ -y • PAINT 

Out of memory 

7 -t I) • ii?IJ 

Number of Subscripts 

( im ) 

Valve of Subscript 


Syntax 

*)S±<Op^9-o 

Command Parameter 

=I -7 V K CO 9 > ^ 

Line number over 

AUTO Xti RENUM f'C^ol^t:9^ y9- v^<-d> 65535 :i-- 

"'-■f ?>o 

Illegal line number 

9^ V9- — 

Line image too long 

9< ( RENUM#) 


- 156 - 


V 

1 


Undefined line number 

( RENUM , GOTO , GOSUB , 
IF-THEN , RESTORE , RUN ) 

Type missmatch 

ft A-f ^ fPJJ t ft; A ^ ^ flU o ^ ^ ^ 'o 

( «cfi, ■X'^n ) 

Out of DATA 

READ h ^ v hr J; 5 t LAAs DATA tl 

Ot — ^ 

RETURN without GOSUB 

GOSUB RETURN 

GOSUB nesting 

GOSUB OAix^AM 6U'</u-^Cx.fCo 

NEXT without FOR 

NEXT FOR - h ^ V h ii'iiEh'o 

FOR nesting 

FOR ~ NEXT 8 C k^fCo 

Statement Parameter 

— V y v v <D'^7 y 

Con't continue 

CONT n V h r i ;5®ufTAi^i5lfg„ 

FOR variat>le name 

FOR - Y y y h O/u- 

( ) 

Array name 

DIM - V y y Y (D'<y y 

Redimensioned array 

2 *r^*L J; 5 t Lfco 

Undefined array 

ERASE L J; 5 i LAo 

No program 

7° p y’ =7 AA'^-r h 't'rfch'Or save lx ^ t LAo 

Memory writing 

y ^ 'J -o ( LOADS#) 
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/• -y -te — i> 

§ 

Device not ready 


Undefined function 

^ ixT ^ - -If 1115:^1!? Lfco 

Verifying 

7"-7’0 7°p ^’7 a i;CDit6i^9-o 

Function buffer full 

9ma±<o=--^-'MmmwL-^‘MmLx 5 i l/co 

Illegal direct 

fi" -i u h;^-r— I'^vi' nJo 

Redo from start 

INPUT — F > V h XJjy — 9 

Extra ignored 

INPUT ^■r — b ^ V bA^Jx — ^ /S'fcd' Lt'o 

Unprintable 

7 — 0 
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10 

50 

100 

110 

120 

130 

140 

200 

210 

220 


■9->yju 


♦S ^ PAINT 


SCREEN 2 , 2 : CIS 

230 

LINE (X , Y ) - 

X=10 : Y=10 : XX=250 : YY=190 

240 

Y=Y+20 

REM LINE 

250 

NEXT 1 

FOR l==1 TO 12 

300 

REM PAINT 

LINE (X,Y)-(X,YY),1 

310 

A=RND (1) *240 

X=X+ 20 

320 

B=RND (1) *185 

NEXT 1 

330 

C=RND (1) * 15 

REM a line 

340 

PAINT (A , B) , 

X=0 

350 

GOTO 300 

FOR 1=1 TO 10 




(XX , Y ) , 1 
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LINE 


1 0 

SCREEN2,2:CLS:COLOR, 

1 5 

FOR l=0TO30 



2 0 

A= 1 N T ( R N D ( 1 

) * 1 6 ) 


3 0 

B = 1 N T ( R N D ( 1 

) * 1 2 8) 

: C = 

4 0 

D = 1 N T ( R N D ( 1 

) *2 5 6 ) 

: E = 

5 0 

L 1 N E ( B , C ) - ( 

D , E ) , A 

, B 


5 5 N E XT I 
1 0 0 G 0 T 0 10 


5 


N T C R N D ( 
N T ( R N D ( 


L I N E B F 

10 SCREEN 2,2:CLS 
20 A=INT(RND(1)*16) 

30 B = I N T ( R N D ( 1 ) * 1 2 8 ) : C = I N T ( R ND ( 
40 D=INT(RND(1 )*256):E=INT(RND( 
50 LINE(B,C)-(D,E),A,BF 
100 GOTO 20 


) *9 6 ) 

) * 1 9 2 ) 


) * 9 6 ) 

) * 1 9 2 ) 


160 


PAINT 




1 0 

SCREEN2,2:CLS 



2 0 

FOR 1=0 TO 

2 5 5 


STEP 16 

3 0 

L 1 N E ( 1 , 0 ) - ( 

1 , 1 

9 

1 ) : N E X T 1 

4 0 

FOR 1=0 TO 

1 9 1 


STEP 16 

5 0 

L 1 N E ( 0 , 1 ) - ( 

2 5 5 

9 

1 ) : N E X T 1 

6 0 

C = 1 N T ( R N D ( 1 

) * 1 

6 

) 

7 0 

X= 1 N T ( R N D ( 1 

) * 2 5 

6 ) : Y = 1 N T 

8 0 

P A 1 N T ( X , Y ) , 

C 



9 0 

GOTO 60 





R N D 


*19 2 ) 
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CIRCLE 1 




1 0 

SCREE 

N 2 , 2 : C 

L S : 

C 0 L 0 R 1 5 

2 0 

FOR R 

= 1 T 0 9 6 



3 0 

C = 1 N T 

( R N D ( 1 

) * 1 

6 ) 

4 0 

C 1 R C L 

E ( 1 2 8 , 

9 6 ) 

, R , C , 1 ,0,1 

5 0 

NEXT 

R 



6 0 

GOTO 

2 0 




CIRCLE 2 

10 SCREEN2.2:CLS:COLOR15 
20 FOR R=1T090 STEP 5 
30 C=INT(RND(1)*16) 

40 CIRCLE(128, 96), R.C. 1,0,1, 
50 NEXT R 
60 PAINT(0,0),5 
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CIRCLE 3 


1 0 

SCREE 

N 2 . 2 : C 

L 

S 



2 0 

X= 1 N T 

( R N D ( 1 

) 

*2 5 6 ) 



3 0 

Y= 1 N T 

( R N D ( 1 

) 

*19 2) 



4 0 

C = 1 N T 

( R N D ( 1 

) 

*16) 



5 0 

R = 1 N T 

( R N D ( 1 

) 

*2 0) 



6 0 

C 1 R C L 

E ( X , Y ) 

9 

R , C , 1 

, 0 , 

1 

7 0 

GOTO 

2 0 





B C 1 R C L E 






1 0 

SCREE 

N 2 , 2 : C 

L 

S : C 0 L 0 R 1 

5 

2 0 

FOR R 

= 1 T 0 9 6 


STEP 

1 0 


3 0 

C = 1 N T 

( R N D ( 1 

) 

*16) 



4 0 

C 1 R C L 

E ( 1 2 8 , 

9 6 ) , R , 

C . 1 

.0,1 

5 0 

NEXT 

R 





6 0 

FOR 1 

= 91 TO 


1 S T E P - 1 

0 

7 0 

B C 1 R C 

L E ( 1 2 8 

9 

9 6 ) , 1 

, , 1 

,0,1 

8 0 

NEXT! 






1 0 0 

GOTO 

2 0 
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1 0 
2 0 

3 0 

4 0 

5 0 

6 0 

7 0 

8 0 
9 0 

1 0 0 
1 1 0 
1 2 0 
1 3 0 
1 4 0 
1 5 0 
1 6 0 

1 7 0 
1 8 0 

2 0 0 
2 1 0 
2 2 0 


M= 1 


SCREEN 2,2:CL 
MAG M:C=RND(1 
CURSOR 10, io: 

FOR Y=0 TO 19 
PATTERN S#0," 
PATTERN S#1," 
PATTERN S#2," 
PATTERN S#3," 

yi=y:gosub 200 

PATTERN S#0, "00193 
PATTERN S#1, 
PATTERN S#2, 
PATTERN S#3, 
Y1=Y+2:G0SUB 
NEXT Y 

M=M+2:iF M>3 


S 

) * 1 3 + 
PRINT 
1 S T E 
0 0 19 3 
0 C 0 F 0 

0 0 C C F 

1 A F A F 


2 C 2 F 0 

0 0 C C F 

1 8 F 8 F 

2 0 0 


1 

CHR$(17); "MAG 
P 4 

F3C1CODOF7B'' 

F0F07031B07" 

E9E9CD878EC" 

8F0EC7C3800" 

F3C1C0D0F1B" 

F071B1F0E00" 

E9E9CD878EF" 

8F8F0606C70" 


THEN M= 1 


GOTO 20 

SPRITE 0,(120,Y1),0,C 
SPRITE 0.(120,Y1+1),0,C 
RETURN 


M 
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-c- # % V 7" /t- -C'-f o 

I -^1 1-^ I f -fo 

|HOME/CL^ ^---C /h^<v>+V7° 
|INS/DEL| =^--T:- 


10 CLS :X=20 :Y=15 
20 CURSOR X,Y:PRINT "0" 

30 Z$=INKEY4 

^0 IF Z$=CHR$(28) THEN E=1 iGOSUB 100 
50 IF 2$=CHR$(29) THEN E=-1:G0SUB 100 
60 IF Z$=CHR$(12) THEN E=-2:G0SUB 200 
70 IF Z$=CHR$(8) THEN E=--6;GGSUB 200 
80 GOTO 30 

100 CURSORX, Y :PRINT" " 

110 FOR N=0 TO 10:NEXT N 

115 X=X+E:IF X=0 OR X=37 THEN X=X-E 

120 CURSORX, Y :pRINT''H" 

130 RETURN 
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200 CURSORX, Y :PRINT" " 
210 Y=Y+E 

220 CURSORX, Y :PRINT"Fl'‘ 
230 FOR N=0 TO 50:NEXT 
240 CURSORX, Y :PRINT" " 
250 Y=Y-E 

260 CURSORX, Y :PRINT"0" 
280 RETURN 


X P •/ • "7 '> > 


3 -to 

2'oa6^'i *'^^vx2fg 

3 t A irT'y x4i^ 

10 T=100 
20 CLS 

30 PRINT''TUtU JlFTXTl ? TTxU "iTF'xU 
^0 INPUT K :PRINT :PRINT"T)'IxU" iK^'xU 
50 FOR N=0 TO S 
60 6=INT(RND( 1 )X3+1 ) 
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70 B=INT(RND(l)>|c3+l ) 

80 C=INT(RND(1):^3+1 ) 

30 CURSOR10, 8 :PRINT P;B;C 
100 NEXT 

110 IF 3=B THEN 140 
120 PRINT"HX’'F" :T=T-K:GOTG 170 
130 T=T-K:GOTO 20 
140 IF H=C THEN 160 
150 PRINT"7-9'r' :T--=T+KX2 :QGT0 170 
160 PRINT";i779'r' :T=T+KX4 :GGTG 170 
170 IF T<=0 THEN PRINTMTJ t"X'' :END 
180 FGR W=0 TG 300:NEXT W:GOTO 20 


LINE-(X, Y) , fe L-r7<.4 L i 5 o 

5 SCREEN 2,2:CLS 
10 LINE(80, 150)-(80, 100), 1 
20 LINE-(120,70),2 
30 LINE-(160, 100), 4 


- 167 - 


40 LINE-( 160, 1501,6 

50 LINE-(80, 100) , 7 

60 LINE-(160, 100) ,8 

70 LINE- (80, 150) , 10 

80 LINE-( 160, 150) , 13 

80 COLOR, 9, (80, 100)-( 159, 150) ,5 

100 P6INT( 120,80), 1 

110 PRINT (120, 1 10 ) , 7 

120 PRINT(120, 1 -^ 0), 3 

140 C-C+l:IF C=15 THEN 0=0 

150 COLOR, C, (81, 100)-( 159, 150), 0 

160 FOR W=0 TO 220:NEXT N 

170 GOTO 140 
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SIN. cos t fr#^ so i eo oicfi 


n 


n4rfffl-< * t 3 0 to STEP cornua . 1 0 f -to 

10 SCREEN 2,2:CLS 
20 POSITION(120,90),0,0 
30 FOR R=0 TO 50 STEP .5 
40 S=R/50*PI^2 
50 X=INTCSIN(S)*50) 

60 Y=INT(COS(S)X50) 

20 PSET (X,Y), 1 
80 NEXT R 
90 GOTO 90 
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fc h y I- 


BASIC 3 (9 ± 3 ti 7 7 ^ ~y ^ ^ 

< . Lfz(D-X:\ Ll 'fsgc i Si ' f 

0 f L/c^ik 77/^07 p / 7 a < o&fi^drS:£7t 0 , 
ffi-a-if-ri-Effl Lt:T;S^,s^ 4^?i5tip^7 -tf 0 HiS i.gl'f -t;4';, $,^hib-ftc LIST ^MLtL-r7 
p 7*7 A LTT$ t'o 

BASIC wm<omm^mmA'i^mtiin&^tirio 0 t-ro-r:\ 

KIo-C. BASIC f; i ^ t"|fg C-C-to PEEK.POKEU^ 

|i^ CWfg-t:-i)i-Lti'i^Lf'CA:^L-t:^-CT^l'o 

BASIC cD7"p 7'7 i y^’y^iK 5^ LI'* ?, i ' t 

a ± 
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SC-3000 BASIC l^'Ol 3 

'< — y ^ -y ^ ^ p|5 

T 144 MMS|5±fflEggEa 1 TS 2 # 12 -f- 
® 03 - 742 - 3171 

BSft 59 7 i! 15 B ^fr 

WSIl-M* 0 a 0 a 

T 140 mMgPp«pillE:|fcp“pjl| 1 T@ 29 # 11 ^ 

S 03 - 471 - 3353 

© SEGA 1983 

• gLT^:!'i#o'fe#;iiScL4i'o 




